--Verbinden
--Grundgerst fr eine Verbindensteuerung.
(a,b: object; c: boolean)
--a=Quelle der Verbindung
--b=Ziel der Verbindung
--c=Verbindung hergestellt/gelscht
is
do
	if c then	--Verbindung wurde hergestellt
		--Fgen Sie hier Ihren Behandlungscode ein
	else		--Verbindung wurde gelscht
		--Fgen Sie hier Ihren Behandlungscode ein
	end;
end;